Imports System.Data.SqlClient.SqlConnection
Public Class ConexionBD
    Private con As SqlClient.SqlConnection
    Private conexion As String
    Public Sub New(ByVal cadena As String)
        conexion = cadena
        con = New SqlClient.SqlConnection(cadena)
    End Sub
    Public ReadOnly Property ConexionBase() As SqlClient.SqlConnection
        Get
            Return con
        End Get
    End Property
    Public ReadOnly Property CadenaConexion() As String
        Get
            Return conexion
        End Get
    End Property
End Class
